From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 27 Jul 1993 21:58:54 +0000 (+0000)
Subject: (iconify-or-deiconify-frame): New function.  Use it for C-z.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~94747
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=2d7bfcc3edfd291492f41906b119c24e321a9e8f;p=emacs.git

(iconify-or-deiconify-frame): New function.  Use it for C-z.
---

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index be6c026fa40..3fe85424e3f 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -459,7 +459,15 @@ This returns ARGS with the arguments that have been processed removed."
 
 ;;;; Function keys
 
-(substitute-key-definition 'suspend-emacs 'iconify-frame global-map)
+(defun iconify-or-deiconify-frame ()
+  "Iconify the selected frame, or deiconify if it's currently an icon."
+  (interactive)
+  (if (eq (cdr (assq 'visibility (frame-parameters))) t)
+      (iconify-frame)
+    (make-frame-visible)))
+
+(substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame
+			   global-map)
 
 ;; Map certain keypad keys into ASCII characters
 ;; that people usually expect.